(make-auto-save-file-name): Replace both / and \

with sequences starting with %.

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 2462a05340973f76c32ea5f382e3fc417e2b6d25..71dd1950728abc3db1991fa31d9857a146da2982 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -142,7 +142,7 @@ Usenet paths ending in an element that matches are removed also."
                        "")
                    (concat (regexp-quote (user-login-name))
                            "\\>"))))
-  (let ((match (concat "\\(^\\|,\\)[ \t\n]*\\([^,\n]*!\\|\\)\\("
+  (let ((match (concat "\\(^\\|,\\)[ \t\n]*\\([^,\n]*[!<]\\|\\)\\("
                       rmail-dont-reply-to-names
                       "\\|[^\,.<]*<\\(" rmail-dont-reply-to-names "\\)"
                       "\\)"))